3-1 ǩϢơʾڴť룬ͼ3-1ʾ
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Dim TextW, TextH As Single
     Label1.Text = ""
     TextW =(Me.Size.Width - Label1.Size.Width) / 2 
     TextH =(Button1.Top - Label1.Size.Height) / 2 
     Label1.Left = TextW
     Label1.Top = TextH
End Sub


